home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSREV.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.1 KB  |  38 lines
  1. ;This function allows user to select the lower left end of a
  2. ;revision line and place the four appropriate pieces of text
  3. ;information.
  4. ;
  5. ;Function name "EDSREV.LSP" - Execution command "REV"
  6. ;
  7. ;Written by Christopher Conrad and Steve Brown
  8. ;
  9. ;
  10. (defun c:rev ()
  11.     (terpri)
  12.     (setq def "end")
  13.     (command "osnap" def)
  14.     (prompt "Select bottom left corner")
  15.     (terpri)
  16.     (setq pnt (getpoint))
  17.     (command "osnap" "off")
  18.     (terpri)
  19.     (setq y (+ (cadr pnt) 0.1354))
  20.     (setq x (car pnt))
  21.     (setq s 0.09375)
  22.     (setq a 0)
  23.     (setq st1 (getstring T "Revision number: "))
  24.     (terpri)
  25.     (setq st2 (getstring T "Description    : "))
  26.     (terpri)
  27.     (setq st3 (getstring T "Date           : "))
  28.     (terpri)
  29.     (setq st4 (getstring T "By             : "))
  30.     (setq pnt1 (list (+ x 0.4018) y))
  31.     (setq pnt2 (list (+ x 1.7362) y))
  32.     (setq pnt3 (list (+ x 3.065) y))
  33.     (setq pnt4 (list (+ x 3.711) y))
  34.     (command "text" "s" "simplex" "m" pnt1 s a st1)
  35.     (command "text" "m" pnt2 s a st2)
  36.     (command "text" "m" pnt3 s a st3)
  37.     (command "text" "m" pnt4 s a st4)
  38.     )